﻿Public Class MiComboBox
    Private m_valor As Object
    Private m_descripcion As String

    ''' <summary>
    ''' Se crea la clase con el valor y la descripción.
    ''' </summary>
    ''' <param name="p_valor">Valor.</param>
    ''' <param name="p_descripcion">Descripción.</param>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 18/06/2010, Modificado: 18/06/2010</remarks>
    Public Sub New(ByVal p_descripcion As String, ByVal p_valor As Object)
        m_valor = p_valor
        m_descripcion = p_descripcion
    End Sub

    ''' <summary>
    ''' Valor que se utiliza en el ComboBox.
    ''' </summary>
    ''' <value>Valor.</value>
    ''' <returns>Valor.</returns>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 18/06/2010, Modificado: 18/06/2010</remarks>
    Public ReadOnly Property valor() As Object
        Get
            Return m_valor
        End Get
    End Property

    ''' <summary>
    ''' Descripción que se utiliza para mostrar en el ComboBox.
    ''' </summary>
    ''' <value>Descripción.</value>
    ''' <returns>Descripción.</returns>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 18/06/2010, Modificado: 18/06/2010</remarks>
    Public ReadOnly Property descripcion() As String
        Get
            Return m_descripcion
        End Get
    End Property

    ''' <summary>
    ''' Representación en texto de la clase.
    ''' </summary>
    ''' <returns>Descripción.</returns>
    ''' <remarks>Creado por: Elías Baldioceda, Fecha: 18/06/2010, Modificado: 18/06/2010</remarks>
    Public Overrides Function toString() As String
        Return m_descripcion
    End Function
End Class
